PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Updates⁄New/AppointmentMaster™ v1.1.1/background_2621.txt

Text File | 1988-06-01 | 13.2 KB | 578 lines

-- background: 2621 from stack: in.1
-- bmap block id: 16828
-- flags: 4000
-- background id: 0
-- name: Schedule
----- HyperTalk script -----
on closeStack
  global whosThere
  put field id 26 into whosThere
  pass closeStack
end closeStack




-- part 5 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=163 top=25 right=46 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 5
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Date
----- HyperTalk script -----




-- part 6 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=79 top=44 right=94 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Nine
----- HyperTalk script -----
on mouseUp
  show card field id 5
  show card field id 9
  show card field id 10
  show card field id 11
  show card field id 12
  put line 1 of field id 6 into card field id 5
  put line 2 of field id 6 into card field id 9
  put line 3 of field id 6 into card field id 10
  put line 4 of field id 6 into card field id 11
end mouseUp



-- part 7 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=79 top=93 right=143 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: ten
----- HyperTalk script -----
on mouseUp
  show card field id 5
  show card field id 9
  show card field id 10
  show card field id 11
  show card field id 12
  put line 1 of field id 7 into card field id 5
  put line 2 of field id 7 into card field id 9
  put line 3 of field id 7 into card field id 10
  put line 4 of field id 7 into card field id 11
end mouseUp


-- part 8 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=79 top=142 right=193 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: eleven
----- HyperTalk script -----
on mouseUp
  show card field id 5
  show card field id 9
  show card field id 10
  show card field id 11
  show card field id 12
  put line 1 of field id 8 into card field id 5
  put line 2 of field id 8 into card field id 9
  put line 3 of field id 8 into card field id 10
  put line 4 of field id 8 into card field id 11
end mouseUp


-- part 9 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=79 top=192 right=242 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: twelve
----- HyperTalk script -----
on mouseUp
  show card field id 5
  show card field id 9
  show card field id 10
  show card field id 11
  show card field id 12
  put line 1 of field id 9 into card field id 5
  put line 2 of field id 9 into card field id 9
  put line 3 of field id 9 into card field id 10
  put line 4 of field id 9 into card field id 11
end mouseUp


-- part 10 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=79 top=241 right=291 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: one
----- HyperTalk script -----
on mouseUp
  show card field id 5
  show card field id 9
  show card field id 10
  show card field id 11
  show card field id 12
  put line 1 of field id 10 into card field id 5
  put line 2 of field id 10 into card field id 9
  put line 3 of field id 10 into card field id 10
  put line 4 of field id 10 into card field id 11
end mouseUp


-- part 11 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=79 top=290 right=340 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: two
----- HyperTalk script -----
on mouseUp
  show card field id 5
  show card field id 9
  show card field id 10
  show card field id 11
  show card field id 12
  put line 1 of field id 11 into card field id 5
  put line 2 of field id 11 into card field id 9
  put line 3 of field id 11 into card field id 10
  put line 4 of field id 11 into card field id 11
end mouseUp



-- part 12 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=310 top=44 right=94 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: three
----- HyperTalk script -----
on mouseUp
  show card field id 5
  show card field id 9
  show card field id 10
  show card field id 11
  show card field id 12
  put line 1 of field id 12 into card field id 5
  put line 2 of field id 12 into card field id 9
  put line 3 of field id 12 into card field id 10
  put line 4 of field id 12 into card field id 11
end mouseUp


-- part 13 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=310 top=93 right=143 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: four
----- HyperTalk script -----
on mouseUp
  show card field id 5
  show card field id 9
  show card field id 10
  show card field id 11
  show card field id 12
  put line 1 of field id 13 into card field id 5
  put line 2 of field id 13 into card field id 9
  put line 3 of field id 13 into card field id 10
  put line 4 of field id 13 into card field id 11
end mouseUp


-- part 14 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=310 top=142 right=192 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: five
----- HyperTalk script -----
on mouseUp
  show card field id 5
  show card field id 9
  show card field id 10
  show card field id 11
  show card field id 12
  put line 1 of field id 14 into card field id 5
  put line 2 of field id 14 into card field id 9
  put line 3 of field id 14 into card field id 10
  put line 4 of field id 14 into card field id 11
end mouseUp


-- part 15 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=310 top=191 right=242 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: six
----- HyperTalk script -----
on mouseUp
  show card field id 5
  show card field id 9
  show card field id 10
  show card field id 11
  show card field id 12
  put line 1 of field id 15 into card field id 5
  put line 2 of field id 15 into card field id 9
  put line 3 of field id 15 into card field id 10
  put line 4 of field id 15 into card field id 11
end mouseUp


-- part 16 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=310 top=241 right=291 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: seven
----- HyperTalk script -----
on mouseUp
  show card field id 5
  show card field id 9
  show card field id 10
  show card field id 11
  show card field id 12
  put line 1 of field id 16 into card field id 5
  put line 2 of field id 16 into card field id 9
  put line 3 of field id 16 into card field id 10
  put line 4 of field id 16 into card field id 11
end mouseUp


-- part 17 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=310 top=290 right=339 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: eight
----- HyperTalk script -----
on mouseUp
  show card field id 5
  show card field id 9
  show card field id 10
  show card field id 11
  show card field id 12
  put line 1 of field id 17 into card field id 5
  put line 2 of field id 17 into card field id 9
  put line 3 of field id 17 into card field id 10
  put line 4 of field id 17 into card field id 11
end mouseUp


-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=0 right=44 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 3835 / 3835
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yesterday
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  get field id 5
  put it into today
  convert today to seconds
  put (60*60*24) into oneDay
  subtract oneDay from today
  put today into field id 5
  convert field id 5 to long date
  theSchedule schedule
end mouseUp




-- part 22 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=469 top=311 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 29484 / 29484
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tomorrow
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  get field id 5
  put it into today
  convert today to seconds
  put (60*60*24) into oneDay
  add oneDay to today
  put today into field id 5
  convert field id 5 to long date
  theSchedule update
end mouseUp




-- part 24 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=93 top=3 right=44 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  show menubar
  visual effect iris close
  go Home
end mouseUp



-- part 26 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=210 top=3 right=28 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 6
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Your Name


-- part 27 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=393 top=2 right=45 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Appointment Card
----- HyperTalk script -----
on mouseUp
  visual iris open
  go next background
  doMenu "new Card"
end mouseUp




-- part 30 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=264 top=223 right=305 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Links
----- HyperTalk script -----
on mouseUp
  hide bkgnd field id 30
end mouseUp


-- part 38 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=3 top=45 right=339 bottom=44
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: My Appointment Book
----- HyperTalk script -----
on mouseUp
  get the date
  put it into temp
  ask "Schedule for Which Day?" with temp
  put it into field id 5
  put it into apptDay
  convert apptDay to seconds
  convert field id 5 to long date
  ask "What is your name, Please?"  with field id 26 --field "Your Name"
  put it into field id 26
  theSchedule schedule
end mouseUp




-- part 39 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=46 top=4 right=44 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Printer
----- HyperTalk script -----
on mouseUp
  answer "What do you wish to print?" with "Cancel" or "Print Card" or "Print All"
  if it is "Cancel" then
    exit mouseUp
  else
    if it is "Print Card" then
      doMenu "Print Card"
      exit mouseUp
    else
      if it is "Print All" then
        ask "Print How Many Days?" with 1
        put it into numOfDays
        set lockScreen to true
        push card
        go last card
        send mouseUp to bkgnd button id 54
        pop card
        set lockScreen to false
        open printing with dialog
        repeat with y = 1 to numOfDays
          print this card
          get the number of lines of field id 30
          put it into thisNum
          repeat with x = 1 to thisNum
            get line x of field id 30
            go it
            print this card
            go card id 3049
          end repeat
          send mouseUp to bkgnd button id 22  --"Tomorrow"
          next repeat
        end repeat
        close printing
      end if
    end if
  end if
end mouseUp


-- part 25 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ©Copyright
----- HyperTalk script -----
on mouseUp
  play boing
  hide field id 25
end mouseUp